# print ('My first R script')
perf_data <- read.table('./eaaproject-x00076629/raw_stats.dat', TRUE)
plot(100-perf_data[,'X.idle'],type='b',xlab='time in seconds', ylab='% utilisation (U_i)')
u_i <- mean(100-perf_data[,'X.idle'])
throughput <- 94
d_i <- u_i / throughput
